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DECUS NO. 8-571 


DECUS FVogram Library Write-u p 

INPUT Decus No 8-480 A rewritten for operating under OS/8. 

INPUT 

A _ relocateable input routin e for input i free format to 8K Fortran 
under OS/8. 

Usage: 

Call INPUT (IDSV, A, NR) 

where IDEV is device code for input (standard 8K Fortran usage), 
any device number). For device code 0 see below. 

A is the first position to store the incoming numbers in 
(Floating pt vector) 

NR is the number of items to be input. 

Input is in a free format, the numbers are separated by , RETURN and 
SPACE. SPACE before a numeric input is ignored, space after a numeric 
input terminates a number. , and RETURN will terminate a number even 
with no numeral has been input, the value will be read as 0. 


Special operators arc: as follows: 


Character 

9 

cr 


ASCII Meaning 
254 terminates number 

r || 

2 " must be given before return to 


Space 240 

• 256 

rub 377 

ctrl/u a ) 225 

t A) 336 

\ A) 334 

255 

CTRL/C 203 

ctrl/l 214 

Line feed 212 


main program is effected (but 
see \) 

" n 

c ecimal point 

1emoves last input before terminator is given 

removes input since last cr 

restarts input routine (removes all input) 

terminates input & returns to main program, all 

remaining numbers are set to 0 

negative number 

return monitor directly 

ignored 

ignored 
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A These echo as - f \ followed by CR/LF on TTY input. On 
other devices the routine will skip the rest of the line 
until CR is found. 

B Non legal input is ignored and not echoed on teletype 
input but will give a fatal error and the "INPT" error 
message on input from other devices. 

J The input is handled by two different routines: 
a/ the teletype Is handled by internal routine 
b/ input from ot ler devices is handled by calls to the 
Fortran subroutine GENIO. In this way it is equivalent 
to a read statement and calls to input and read statements 
can be mixed in a program. Reading on device independent 
input can be done in the same way as a Read ( 4 , ) 

statement i e a CALL OPEN must have been issued before 
and attempt to read past the end of file will result in 
an ''INPT'' error. 


72-08-14 

L?/Alii 
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n 

-ST- 

... ' . *.~\" - ----.. .. 


»>TTV : <DTA1: INPUT, COPUNUW. LsYtcV 


1 

* ‘ ‘ 1 ~ - -• v- -... 


2 



BBEG 

1010 


CHS 

O000EXT 


CLEAR 

0000EXT 


DECKOM 

0674 


DECP 

1061 


DEL 

1044 


DEVICE 

0226 


DIG 

0217 


ECHO 

0561 

• 

ENDfl 

0224 


ERASE 

1071 


ERRN1 

0230 


ERRM2 

0231 - 


ERROR 

0000EXT 


ERRT 

0534 —' 


EXIT 

0000EXT 


FAD 

0000EXT 


FDV 

0000EXT 


FF 

0203 


FFLOT 

0200 


FLOT 

0000EXT 


FMP 

0000EXT 


FT 10 

0211 


GENCL 

0432 


GENIO 

0000EXT 


HR1 

0315 


IA 

0225 


IARG 

0227 

• 

ILNR 

0221 


INIT 

0321 


INIT2 

0333 


INPUT 

0232EXT 


ISTO 

0000EXT 


J 

0442 


KCC 

6032OP 


K1 

0426 


LBEG 

0463 


LEND 

0477 


LF 

0514 


NIN 

0550 


MINUS 

0220 


MPV 

0000EXT 


NR 

0222 


NTTV 

0527 


NUM 

0216 


NUMADD 

0633 


NUMCON 

0616 


NVNR 

0334 


OUT 

1135 


OUTPUT 

0443 
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PF 

0223 

READ 

0356 

READC 

0420 

READC2 

0421 

RETUR 

0732 

RTN 

1140 

RUB 

1052 

SEARCH 

0443 

SELECT 

0434 

SENDA 

1100 

SPACE 

0750 

STO 

0000EXT 

STORE 

1011 

ST2 

1035 

SI 

0400 

TAD I 

1400OP 

TERM 

1002 

TEX IT 

0460 

TF 

0206 

TTV 

0330 

TVPE 

0443 

T1 

0452 

T2 

0310 

UT 

1115 

UT2 

1130 

UT3 

1113 

UT4 

1116 

XI 

0244 

X2 

0271 

SBEG 

0214 

~LBEG 

0462 
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ENTRV INPUT 

5 


6032 


OPDEF KCC 6032 

6 


1400 


OPDEF TADI 1400 

7 

0200 

0000 

FFLOT, 

BLOCK 3 

8 

0201 

0000 



9 

0202 

0000 



10 

0203 

0000 

FF, 

BLOCK 3 

11 

0204 

0000 



12 

0205 

0000 



13 

0206 

0000 

tf. 

BLOCK 3 

14 

0207 

0000 



15 

0210 

0000 



16 

0211 

2045 

FTIO, 

2045; 0; 0 /’“FLOAT 10 

17 

0212 

0000 


18 

0213 

0000 



19 

0214 

0000 

SBEG, 

BLOCK 2 

20 

0215 

0000 



21 

0216 

0000 

NUM, 

0 

22 

0217 

0000 

DIG, 

0 

23 

0220 

0000 

MINUS, 

0 

24 

0221 

0000 

ILNR, 

0 

25 

0222 

0000 

NR, 

0 

26 

0223 

0000 

PF, 

0 

27 

0224 

0000 

ENDA, 

0 

28 

0225 

0000 

I A, 

0 

29 

0226 

0000 

DEVICE, 

0 

38 

0227 

0000 

IARG, 

0 

31 

0230 

1116 

ERRM1, 

1116 /IN 
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32 0231 2024 

33 0232 0000 

34 0233 0000 

35 0234 4 06? 

36 0235 0232 01 

37 0236 140? 

38 0237 3244 


39 

0240 

2233 

48 

0241 

1633 

41 

0242 

3227 

42 

0243 

2233 

43 

0244 

. 7402 

44 

0245 

1627 

45 

0246 

3226 

46 



47 

0247 

40B? 

48 

0250 

0232 01 

49 

0251 

1407 

58 

0252 

3214 

51 

0253 

2233 

52 

0254 

4067 

53 

0255 

0232 81 

54 

0256 

1487 

55 

0257 

3215 

56 

@260 

2233 

57 

0261 

4067 

58 

0262 

0232 01 

59 

0263 

1407 

68 

0264 

3271 

61 

0265 

2233 

62 

0266 

1633 

63 

0267 

3227 

64 

0270 

2233 

65 

0271 

7402 

66 

0272 

1627 

67 

0273 

3216 

68 

0274 

1215 

69 

0275 

6201 05 

70 

0276 

3776 

71 

0277 

7200 

72 

0300 

3221 

73 

0301 

3222 

74 

0302 

1226 

75 

0383 

7450 

76 

0304 

5775 

77 

0385 

1374 

78 

0306 

7458 

79 

0307 

5330 

88 

0318 

1374 

81 

0311 

7640 

82 

8312 7 

5321 

83 

0313 

1318 

84 

0314 

3225 

85 

0315 

2225 

86 

0316 

5315 

87 

0317 

6811 

88 

0328 

6814 

89 

0321 

1226 

90 

0322 

1373 

91 

0323 

7012 


ERRN2, 2024 
INPUT, BLOCK 2 

TAD I INPUT 


DCfl <1 
INC INPUT# 
TAD I INPUT# 
OCR IflRQ 
INC INPUT# 
XI' HLT 

TflDI IflRQ 
DCfl DEVICE 
DUHHV \BEG 
TflD I INPUT 


DCfl \BEG 
INC INPUT# 
TflD I INPUT 


DCfl V3EG* 
INC INPUT# 
TflD I INPUT 


DCfl X2 
INC INPUT# 
TflDI INPUT# 
DCfl IflRQ 
INC INPUT# 
X2, HLT 

TflDI IflRQ 

_ _DCfl NUN 

TflD SBEG# 
^DCfl BBEG 

CLfl 

DCfl ILNR 

_ DCfl NR 

TflD DEVICE 
SNA 

JNP UT3 
TflD <-l 
SNA 

_ „JNP TTY 

T2, TflD <-l 

S2fl CLfl 
JNP INIT 
TflD T2 
DCfl I ft 
HR1, ISZ Ifl 

JNP HR1 
RSF 
RFC 

INIT, TflD DEVICE 
TflD <3 
RTRj RTR; RflR 



/NOT PTR 


/TINE LOOP ONLV GIVE RFC 
/IF HSR HAS BEEN TOUCHED 
/SINCE LAST CALL TO INPUT 
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/NflKE IJPP DEV NR FOR GEN 10 















92 

0324 

7012 

93 

0325 

7010 

94 

0326 

3226 

95 

0327 

5333 

96 

0330 

3226 

97 

0331 

6846 

98 

0332 

6032 

99 

0333 

4772 

188 

0334 

7200 

181 

0335 

3217 

102 

0336 

3220 

103 

0337 

4033 

104 

0340 

0002 06 

185 

0341 

4033 

106 

0342 

0103 06 

107 

0343 

6201 05 

108 

8344 

0200 01 

189 

0345 

7200 

110 

0346 

7001 

111 

0347 

4833 

112 

0358 

0004 86 

113 

0351 

4033 

114 

0352 

0103 86 

115 

0353 

6281 05 

116 

0354 

0286 01 

117 

0355 

3223 

118 

0356 

4771 

119 

0357 

3225 

120 

036O 

1225 

121 

0361 

7041 

122 

0362 

3770 

123 

0363 

1767 

124 

0364 

3766 

125 

0365 

5377 

126 

0366 

0443 01 

127 

0367 

0462 81 

128 

0378 

0442 81 

129 

0371 

0420 01 

130 

0372 

1100 01 

131 

0373 

0003 

132 

0374 

7777 

133 

0375 

1113 01 

134 

0376 

1010 01 

135 

0377 

7000 

136 

0400 

4045 

137 

0401 

7410 

138 

0482 

1643 

139 

0403 

7518 

140 

0484 

5776 

141 

0405 

1242 

142 

0406 

2243 

143 

0407 

7640 

144 

0410 

5200 

145 

0411 

1243 

146 

0412 

1375 

147 

0413 

3242 

148 

0414 

6201 05 

149 

0415 

1642 


TTY, 

DCA DEVICE 
JMP INIT2 
DCA DEVICE 

*’ 

-TLS 

INIT2, 

KCC 

JMS SENDA 

4YNR, 

CLA 

CALL 0, 

DCA DIG 

DCA MINUS 
CLEAR 

CALL 1, 

STO 

- ' -. 

ARG FFLOT 


CLA_ 

CALL 0, 

I AC 

FLOT 

CALL 1, 

STO 

READ, 

ARG TF 

DCA PF 

JMS FEADC 


DCA ] A 

TAD 3 A 

CIA 

DCA 

TAD '■'LBEG 
DCA SEARCH 


31, TAD I SEARCH 


SPA 

JMP NUMCQN 
TAD J 

INC SEARCH 
SZA CLA 
JMP SI 
TAD SEARCH 
TAD C.4 
DC A J 
TAD I J 



/NOTE “THIS IS LBEG-LEND 
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*v 


150 

0416 

3242 



DCA J 

151 

0417 

5642 



JMP I J 

152 

0420 

0000 


READC, 

0 

153 

0421 

7200 


READC2, 

CLA 

154 

0422 

6201 

05 


TAD DEVICE 

155 

0423 

1774 




156 

0424 

7448 



S2A 

157 * 

0425 

5232 



J HP GENCL 

158 

0426 

6031 


Cl, 

KSF~~ 

159 

0427 

5226 



JMP K1 

160 

0430 

6036 



KRB 

161 

0431 

5234 



JMP SELECT 

162 

0432 

4833 


UENCL, 

CALL 0,GEN10 

163 

0433 

0005 

06 



164 

0434 

0373 


SELECT, 

AND <177 

165 

0435 

7450 



SNA /IGNC 

166 

0436 

5221 



JMP READC2 

167 

0437 

1372 



TAD <200 

168 

0440 

6201 

05 


JMP I READC 

169 

0441 

5628 


. _ 


170 

0442 

0000 


• * 

0 

171 


’ _ 


‘ YPE, 


172 

...,.. 



SEARCH, 


173 

0443 

0000 


OUTPUT, 

0 

174 

0444 

3242 



DCA J 

175 

0445 

6201 

05 


TAD DEVICE 

176 

0446 

1774 




177 

0447 

7640 



SZA CLA 

178 

0450 

5643 



JMP I OUTPUT 

179 

0451 

1242 



TAD J 

188 

0452 

6041 


Tl, 

TSF 

181 

0453 

5252 



JMP Tl 

182 

0454 

6046 



TLS 

183 

0455 

7200 



CLA 

184 

0456 

6281 

05 


JMP I OUTPUT 

185 

0457 

5643 




186 




TEXIT, 


187 

0468 

4033 


CALL 

0, EXIT 

188 

0461 

0006 

06 



189 

0462 

0463 

01 

~LBE6, 

LBEG 


/NO ECHO EXEPT TTV 


190 

191 

192 

193 

194 


195 

0463 

0215 

LBEG, 

215 

196 

0464 

0254 


t» 

jt 

197 

0465 

0203 


_ 203 

198 

0466 

0256 


n 

199 

0467 

0377 


377 

200 

0470 

0225 


225 

201 

0471 

0336 

< 

M .-v 

202 

0472 

0255 


N _ 

203 

0473 

0257 


V 

204 

0474 

0240 


240 

205 

0475 

0212 


212 

206 

207 

0476 

0477 

0213 

7777 

LEND, 

ms-Allj 
7777 1 

208 

0500 

0732 01 


RETUR 

289 

0501 

1002 01 


TERM 


/THIS IS THE BRANCHING TABLE 

/THESE 2 PARTS OF TABLE MUST BE CEPT TOGETHER. 
/CHARA :TERS USED IN THE RUTINE ARE DEFINED HERE 
/ONLV iUMERALSjARE NOT INCLUDED 

CPAGE 31 /=2*<LBEG-LEND-1>+1 

/CR -CTERMINATE NR,RETURN ?> 

/, CTERMINATE CURRENT NR> 

/CNTRL/C <GO TO MONITOR> 

/. <DECIMAL POINT> 

/RUB <DELETE LAST NUMBER> 

/CNTRL/U <DELETE LAST ROW > 

Z'' <DELETE ALL SINCE ENTRY > 

/- CMINUS SIGN> 

/SLASH <RETRN ALL REST=8> 

/SPACE <TERMINATES NR,IGNORED BEFOR 
-.— /LINEFEED IGNORED 

-& III /CONTROL L IGNORED £ 
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210 

211 

212 

213 

214 

215 

216 
217 

0502 

0503 

0504 

8505 

0506 

0507 

0510 

0511 

0460 01 
1061 01 
1052 01 
1044 01 
1071 01 
0550 01 
1115 01 
0750 01 

- - -. -- 

218 

219 

220 
221 
222 
223 

0512 

0513 

0514 

0515 

0516 

0517 

0356 01 
0356 01 
0000 

7200 

6201 05 
1774 

LF, 

224 

0520 

7440 


225 

0521 

5327 


226 

0522 

1371 


227 

0523 

4243 


228 

0524 

1370 


229 

0525 

4243 


238 

0526 

5714 


231 

0527 

4228 

NTTY, 

232 

0530 

1367 


233 

0531 

7440 


234 

0532 

5327 


235 

0533 

5714 


236 

0534 

7300 

ERRT,” 

237 

0535 

6201 05 


238 

0536 

1774 


239 

0537 

7850 


240 

0540 

5766 


241 

0541 

1765 


242 

0542 

7640 


243 

0543 

5766 


244 

0544 

4033 

CALL 1 

245 

0545 

0107 06 


246 

0546 

6201 05 


247 

0547 

0230 01 


248 

0550 

6201 05 

MIN, 

249 

0551 

1764 


250 

0552 

1763 


251 

0553 

7640 


252 

0554 

5334 


253 

0555 

4361 


254 

0556 

2763 


255 

0557 

2764 


256 

0560 

5766 


257 

0561 

0000 

ECHO, 

258 

0562 

5377 


259 

0563 

0220 01 


260 

8564 

0217 01 


261 

0565 

0224 01 


262 

0566 

0356 01 


263 

0567 

7566 


264 

8570 

0212 


265 

0571 

0215 


266 

0572 

0200 


267 

8573 

0177 


268 

0574 

0226 01 


269 

0575 

0014 



TEX I T 

DECP 

RUB 

DEL 

ERASE 

MIN 

UT 

SPACE 

READ 

READ 

0 /THIS RUTINE TVPES CR/LF ON TTV 

CLA /OR SKIPS TO LF ON OTHER DEVICE 

TAD DEVICE 


SZA 

JMP NTTY 
TAD <215 
JMS TYPE 
TAD <212 
JMS TYPE 
JMP I LF 
JMS READC 
TAD <-212 
SZA 

JMP NTTY 
JMP I LF 

CLA CLL /ERROR RUTINE 
TAD DEVICE 


SNA CLA 
JMP READ 
TAD_ ENDA 
SZA CLA 
JMP READ 
ERROR 


/NO ERRORS FROM TTY 


/IGNORE ERRORS AFTER LAST I 


AR6 ERRM1 /ERROR FATAL SO NO FURTHER 


TAD DIG 

TAD MINUS 
SZA CLA 

JMP ERRT /TWO - IN NUMBER 

JMS ECHO 

INC MINUS 

INC DIG 

JMP READ 

0 
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2 70 

0576 

0616 01 



271 

0577 

7000 



272 

0608 

7280 


CLA 

273 

0601 

6201 85 


TAD ENDA 

274 

0682 

1776 



275 

0603 

7640 


SZA CLA 

276 

0604 

7418 


JMP I ECHO 

277 

0685 

- 5211 



278 

0686 

4062 



279 

0607 

0561 01 



288 

0610 

5407 



281 

0611 

1775 


TAD IA 

282 

0612 

4774 


JMS TVPE 

283 

8613 

4062 


JMP I ECHO 

284 

0614 

0561 01 



285 

8615 

5407 



286 

0616 

7200 

NUMCON, 

CLA 

287 

0617 

6281 05 


TAD ENDA 

288 

0620 

1776 



289 

0621 

7440 


SZA 

298 

0622 

5773 


JMP READ 

291 

0623 

1775 


TAD IA 

292 

8624 

1372 


TAD <-257 

293 

0625 

7710 


SPA CLA 

294 

0626 

5771 


JMP ERRT 

295 

0627 

1775 


TAD IA 

296 

0630 

1378 


TAD ’<-271 

297 

8631 

7740 


SMA SZA CLA 

298 

0632 

5771 


JMP ERRT 

299 

0633 

4767 

NUMADD, 

JMS ECHO 

388 

0634 

2766 


INC DIG 

381 

0635 

4033 

CALL 0, 

CLEAR 

302 

0636 

0002 06 



303 

0637 

1775 


TAD IA 

384 

064O 

0365 


AND <17 

305 

0641 

4033 

CALL 0, 

FLOT 

306 

0642 

0804 06 



387 

0643 

4833 

CALL 1, 

STO 

308 

0644 

0103 06 



309 

0645 

6201 05 


ARG FF 

310 

0646 

0203 01 



311 

0647 

7200 


CLA 

312 

0650 

1764 


TAD PF 

313 

0651 

7440 


SZA 

314 

0652 

5274 


JMP DECKOM 

315 

0653 

4033 

CALL 1, 

FAD 

316 

0654 

0110 06 



317 

0655 

6281 05 


ARG FFLOT 

318 

0656 

0200 01 



319 

0657 

4033 

CALL 1, 

FMP 

320 

0660 

0111 06 



321 

0661 

6201 05 


ARG FTIO 

322 

0662 

0211 01 



323 

0663 

4833 

CALL 1, 

FAD 

324 

0664 

0110 06 



325 

0665 

6201 05 


ARG FF 

326 

0666 

0203 81 



327 

8667 

4033 

CALL 1, 

STO 

328 

0678 

0183 06 



329 

0671 

6201 05 


ARG FFLOT 
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330 

0672 

0200 01 





* 331 

0673 

5773 


JMP 

READ 

• 

332 

0674 

7200 

DECKOM, 

CLA 



333 

0675 

4833 

CALL 1, 

FAD 



334 

0676 

0110 06 





335 

0677 

6201 05 


ARG 

TF 


336 

0700 

0206 01 





337 

0701 

4033 

CALL 1 

FDV 



338 

0702 

0112 @6 





339 

0703 

6201 05 


ARG 

FTIO 


340 

0704 

0211 01 





341 

0705 

4033 

CALL 1 

STO 



342 

0706 

0103 06 





343 

0707 

6281 05 


ARG 

TF 


344 

0710 

02O£ 01 





345 

0711 

4033 

CALL 1, 

FAD 



346 

0712 

0110 06 





347 

0713 

6201- 05 


ARG 

FF 


348 

0714 

0203 01 




# 

349 

0715 

4033 

CALL 1, 

FMP 


w 

350 

0716 

0111 06 





351 

0717 

6201 05 


ARG 

TF 


352 

0720 

0206 01 





353 

0721 

4033 

CALL 1, 

FAD 



354 

0722 

0110 06 





355 

0723 

6201 85 


ARG 

FFLOT 


356 

0724 

0200 01 





357 

0725 

4033 

CALL 1, 

STO 



358 

0726 

0103 06 





359 

0727 

6201 05 


ARG 

FFLOT 


. 360 

0730 

0200 01 





361 

0731 

5773 


JMP 

READ 


362 

0732 

4763 

RETUR, JUS LF 


363 

0733 

1776 

- 

TAD 

ENDA 


364 

0734 

7440 


SZA 


_ 

365 

0735 

5762 


JMP 

OUT 


3 66 

0736 

4761 


JMS 

STORE 


367 

0737 

1760 


TAD 

NR 

• 

368 

0740 

1757 


TAD 

ILNR 


369 

0741 

3757 


DCA 

ILNR 


370 

0742 

3760 


DCA 

NR 


371 

0743 

4756 


JMS 

SENDA 


372 

0744 

1776 


TAD 

ENDA 


373 

0745 

7448 


SZA 



374 

0746 

5762 


JMP 

OUT 

____ 

375 

0747 

5755 


JMP 

NVNR 


376 

0750 

7200 

SPACE, 

CLA 


' . 

377 

0751 

6201 05 


TAD 

DIG 

j 

378 

0752 

1766 





379 

0753 

5377 





380 

0755 

0334 01 



.. 


381 

0756 

1100 01 





382 

0757 

0221 01 





383 

0760 

0222 01 





384 

0761 

1011 01 





385 

0762 

1135 01 





386 

0763 

0514 01 





387 

0764 

0223 01 





388 

0765 

0017 





389 

0766 

0217 01 
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398 

0767 

0561 

01 


391 

0770 

7507 



392 

0771 

0534 

01 


393 

0772 

7521 



394 

0773 

0356 

01 


395 

0774 

_0443 

01 


396 

0775 

0225 

01 


397 

0776 

0224 

01 


398 

0777 

7000 



399 

1000 

7650 



400 

1001 

5777 



401 

1002 

4776 


TERM, 

402 

1003 

1775 



403 

1004 

7450 



404 

1005 

4211 



405 

1006 

4300 



406 

1007 

5774 



407 

1010 

0000 


BBEG, 

408 

1011 

0000 


STORE, 

409 

1012 

6201 

in 


410 

1013 

1773 



411 

1014 

1772 



412 

1015 

4033 


CALL 1 

413 

1016 

0113 

06 


414 

1017 

6201 

05 


415 

1020 

1171 

01 


416 

1021 

1210 



417 

1022 

3770 



418 

1023 

4033 


CALL 1 

419 

1024 

0110 

06 


420 

1025 

6201 

85 


421 

1026 

0200 

01 


422 

1027 

7200 



423 

1030 

1767 



4 24 

1031 

7650 



425 

1032 

5235 



426 

1033 

4033 


CALL 0 

427 

1034 

0014 

06 


428 

1035 

4033 


ST2, 

429 

1036 

0115 

06 


430 

1037 

6201 

05 


431 

1040 

0214 

01 


432 

1041 

2772 



433 

1042 

7200 



434 

1043 

5611 



435 

1044 

1366 


DEL, 

436 

1045 

4765 



437 

1046 

4764 



438 

1047 

3772 



439 

1050 

4300 




SNR CLfl 

JMP READ /IGNORE NO INPUT 

JMS ECHO 
TRD ENDR 
SNR 

JMS STORE 
JMS SENDfl 
JMP NVNR 
0 

© V 

TRD ILNR 

TRD NR 
MPV 

RRG <3 

TRD BBEG 
DCR SBEG# 

FRD 

RRG FFLOT 
CLfl 

TRD MINUS 
SNR CLR 
JMP ST2 
CHS 

CALL 1, ISTO 

RRG SBEG 

INC NR 
CLfl 

JMP I STORE 
TRD <337 
JMS TYPE 
JMS LF 
DCR NR 
JMS SENDfl 


11 














A A 

* 


440 

441 

442 

443 

444 

445 

446 
44? 
4 48 

449 

450 

451 

452 

453 

454 

455 

456 
45? 


1051 

1052 

1053 

1054 

1055 

1056 

1057 
1060 
1061 
1062 

1063 

1064 

1065 

1066 
1067 

1070 

1071 

1072 


5774 

6201 05 

1763 

7650 

5774 

1362 

4765 

5774 

6201 05 

1761 

7640 

5760 

4776 

2763 

2761 

5777 

6201 05 


RUB, 


DECP, 


ERASE, 


JMP NYNR 
_TAD DIG 

SNA CLfl 
JMP NYNR 
.TAD <334 
JMS TYPE 
JMP NYNR 
TAD PF 

S2A CLA 
J_MP ERRT 
JMS ECHO 
INC DIG 
INC PF 
JMP READ 
DCA ILNR 



458 

1073 

3772 


DCA NR 

• 

459 

1074 

4300 


JMS SENDA 


460 

1075 

4776 


JMS ECHO 


461 

1076 

4764 


JMS LF 


462 

107? 

5774 


JMP NYNR 


463 

1100 

0000 

SENDA, 

0 


464 

1101 

7200 


CLA 


465 

1102 

6201 05 


TAD ILNR 


466 

. 1103 

1773 




467 

1104 

1772 


TAD NR 


468 

1105 

7041 


CIA 


469 

1106 

1757 


TAD NUM 

v 

470 

1107 

7750 


SPA SNA CLA 


471 

1110 

7001 


I AC 


472 

1111 

3775 


DCA ENDA 


473 

1112 

5700 


JMP I SENDA 


474 

1113 

6201 05 

UT3, 

INC DEVICE 


475 

1114 

2756 



. 

476 

1115 

4776 

UT, 

JMS ECHO 


.47? 

1116 

4300 

UT4, 

JMS SENDA 

• 

478 

1117 

1775 


TAD ENDA 


479 

1120 

7640 


SZA CLA 


480 

1121 

5330 


JMP UT2 


481 

1122 

4211 


JMS STORE 


482 

1123 

4033 

CALL 1, 

STO 


483 

1124 

0103 06 




484 

1125 

6201 05 

. . _ 

ARG FFLOT 


485 

1126 

0200 01 




486 

1127 

5316 


JMP UT4 


487 

1130 

7340 

UT2, 

CLA CLL CMA 


488 

1131 

6201 05 


TAD DEVICE 


489 

1132 

1756 




490 

1133 

7440 


SZA /DEV 


491 

1134 

4764 


JMS LF 


492 

1135 

7200 

OUT, 

CLA 


493 

1136 

1355 


TAD <212 


494 

1137 

4765 


JMS TYPE 


495- 

1140 

4040 

RTN, 

RETRN INPUT 


496 

1141 

0001 06 




49? 

1155 

0212 




498 

1156 

0226 01 



-- 

499 

115? 

0216 01 




/TWO . IN A NUMBER 


/NO ECHO ON ZEROING VECTOR 


/-I 


/DEV 1=QNLV ZERO VECTOR 
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• 500 

1160 

501 

1161 

502 

1162 

503 

1163 

504 

1164 

505 

1165 

506 

1166 

507 

1167 

508 

1170 

509 

11.71 

510 

1172 

511 

1173 

512 

1174 

513 

1175 

514 

1176 

515 

1177 

516 



0534 01 
0223 81 
0334 
0217 01 
0514 01 
0443 01 
0337 
0220 01 
0215 01 
0003 
0222 01 
0221 01 
0334 01 
0224 01 
0561 01 
0356 01 


END 


BBEG 

69 

407# 

CHS 

426 


CLEAR 

103 

301 

DECKOM 

314 

332# 

DE CP 

211 

448# 

DEL 

213 

435# 

DEVICE 

29# 

45 


DIG 

ECHO 

ENDA 

ERASE 

ERRM1 

ERRM2 

ERROR 

ERRT 

EXIT 

FAD 

FDV 

FF 

FFLOT 

FLOT 

FHP 

FTIO 

OENCL 

GENIO 

HR1 


74 

474 488 

22 # 101 248 

253 257# 276 

27# 241 273 

214 456# 

31# 246 

32# 


89 

>55 

>83 

>87 


94 

300 

299 

363 


96 

377 

401 

372 


154 175 


441 

452 

402 


453 

460 

472 


222 


476 

478 


244 

236# 

187 

252 

294 

298 

451 


315 

337 

323 

333 

345 

353 

418 

10# 

309 

325 

347 



7# 

111 

107 

305 

317 

329 

355 

359 

319 

349 





16# 

321 

339 





420 484 


157 

162 

85# 


162# 

86 


237 


13 









I 

\ 






,""V- 

J 



IA 

28# 

84 

85 

119 

120 

281 

* IRRG 

30# 

41 

44 

63 

66 


ILNR 

24# 

72 

368 

169 

409 

456 

v INIT 

82 

89# 





INIT2 

95 

99# 





INPUT 

4 

33# 

35 

39 

40 

42 


57 

61 

62 

64 

495 


ISTO - 

428 






J 

122 

141 

147 

148 

150 

151 

K1 

158# 

159 





LBEG - 

189 

195# 





LEND 

207# 






LF 

220# 

230 

235 

362 

437 

461 

MIN 

215 

248# 





MINUS 

23# 

102 

250 

254 

423 


MPV 

412 






NR 

25# 

73 

367 

370 

411 

432 

NTTV 

225 

231# 

234 




NUM 

21# 

67 

469 



. 

NUMRDD 

299# 






NUfICON 

140 

286# 



... " 


NVNR 

100# 

375 

406 

440 

444 

447 

OUT 

365 

374 

492# 




OUTPUT 

173# 

178 

184 




PF 

26# 

117 

312 

448 

454 


RERD 

118# 

218 

219 

240 

243 

256 


455 






RERDC 

118 

152# 

168 

231 




RERDC2 

RETUR 

RTN 

RUB 

153# 

208 

495# 

212 

166 

362# 

441# 





SEARCH 

124 

136 

142 ~ 

145 

172# 


SELECT 

161 

164# 





SENDfl 

99 

371 

405 

439 

459 

463# 

SPACE 

217 

376# 





STO 

105 

113 

307 

327 

341 

357 

STORE 

3 66 

404 

408# 

434 

481 


ST2 

425 

428# 





SI 

136# 

144 





TAD I 

6 

40 

44 

62 

66 


TERM 

209 

401# 





TEX IT 

186# 

210 



.# 


TF 

13# 

115 

335 

343 

351 


TTY 

79 

96# 





TYPE 

171# 

227 

229 

282 

436 

446 

T1 

180# 

181 





T2 

88# 

83 





UT 

216 

476# 





UT2 

480 

487# 





UT3 

76 

474# 





UT4 

477# 

486 





XI 

38 

43# 





X2 

60 

65# 





SBEG 

19# 

46 

50 

55 

68 

417 

''LBEG 

123 

189# 






291 

295 

303 


465 




47 

51 

52 

56 

170# 

174 

179 



491 

438 458 467 

462 

298 331 361 400 


473 477 

482 


494 


430 
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